VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BProducto"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"BCategoria"
Attribute VB_Ext_KEY = "Member1" ,"bEstado"
Option Explicit
Private mvarnCodigo As Integer
Private mvarsdescripcion As String
Private mvarbCategoria As bCategoria
Private mvarnPrecio As Double
Private mvarbEstado As bestado
Private mvarsCodBarra As String
Private mvarsDescripcionLarga As String
Private m_simagen As String
Private mvarbcodigodestino As bdestino
Private mvarbtipo As btipo
Private mvarbAlmacen As balmacen
Private Sub Class_Terminate()
    Set bCategoria = Nothing
    Set bestado = Nothing
    Set mvarbcodigodestino = Nothing
    Set mvarbtipo = Nothing
    Set mvarbAlmacen = Nothing
End Sub
Friend Property Let sDescripcionLarga(ByVal vData As String)
    mvarsDescripcionLarga = vData
End Property
Friend Property Get sDescripcionLarga() As String
    sDescripcionLarga = mvarsDescripcionLarga
End Property
Friend Property Let sCodBarra(ByVal vData As String)
    mvarsCodBarra = vData
End Property
Friend Property Get sCodBarra() As String
    sCodBarra = mvarsCodBarra
End Property
Friend Property Set bestado(ByVal vData As bestado)
    Set mvarbEstado = vData
End Property
Friend Property Get bestado() As bestado
    Set bestado = mvarbEstado
End Property
Friend Property Let nPrecio(ByVal vData As Double)
    mvarnPrecio = vData
End Property
Friend Property Get nPrecio() As Double
    nPrecio = mvarnPrecio
End Property
Friend Property Set bCategoria(ByVal vData As bCategoria)
    Set mvarbCategoria = vData
End Property
Friend Property Get bCategoria() As bCategoria
    Set bCategoria = mvarbCategoria
End Property
Friend Property Let sDescripcionCorta(ByVal vData As String)
    mvarsdescripcion = vData
End Property
Friend Property Get sDescripcionCorta() As String
    sDescripcionCorta = mvarsdescripcion
End Property
Public Property Let nCodigo(ByVal vData As Integer)
    mvarnCodigo = vData
End Property
Public Property Get nCodigo() As Integer
    nCodigo = mvarnCodigo
End Property
Private Sub Class_Initialize()
Set bCategoria = New bCategoria
Set bestado = New bestado
Set mvarbcodigodestino = New bdestino
Set mvarbtipo = New btipo
Set mvarbAlmacen = New balmacen
End Sub
Public Property Get imagen() As String
    imagen = m_simagen
End Property
Public Property Let imagen(ByVal simagen As String)
    m_simagen = simagen
End Property
Public Property Get bcodigodestino() As bdestino
    Set bcodigodestino = mvarbcodigodestino
End Property
Public Property Set bcodigodestino(bcodigodestino As bdestino)
    Set mvarbcodigodestino = bcodigodestino
End Property

Public Property Get btipo() As btipo
    Set btipo = mvarbtipo
End Property
Public Property Set btipo(btipo As btipo)
    Set mvarbtipo = btipo
End Property
Public Property Get balmacen() As balmacen
    Set balmacen = mvarbAlmacen
End Property
Public Property Set balmacen(balmacen As balmacen)
    Set mvarbAlmacen = balmacen
End Property

